www.gusucode.com > PHP展示型企业网站模板米拓整站源码 1.0PHP源码程序 > PHP展示型企业网站模板米拓整站源码 1.0/MetInfozs_v1.0/MetInfozs_v1.0/app/system/include/function/file.func.php
<?php
# MetInfo Enterprise Content Management System
# Copyright (C) MetInfo Co.,Ltd (http://www.metinfo.cn). All rights reserved.
defined('IN_MET') or exit('No permission');
load::sys_func('str');
load::sys_class('pclzip');
/**
* 新建文件夹
* @param string $dir 要新建的文件夹
* @return boolean 文件夹存在则返回真，否侧新建文件夹，并返回是否新建文件夹成功
*/
function makedir($dir){
$dir = path_absolute($dir);
@clearstatcache();
if(file_exists($dir)){
$result=true;
}else{
$fileUrl = '';
$fileArr = explode('/', $dir);
$result = true;
foreach($fileArr as $val){
$fileUrl .= $val . '/';
if(!file_exists($fileUrl)){
$result = mkdir($fileUrl);
}
}
}
@clearstatcache();
return $result;
}
/**
* 新建文件
* @param string $file 要新建文件
* @param boolean $overWrite 如果新建的文件存在，是否删除原文件（true：删除原文件，false：不删除原文件）默认删除
* @return boolean 是否新建文件成功
*/
function makefile($file,$overWrite = true){
$file = path_absolute($file);
@clearstatcache();
if(file_exists($file) && $overWrite == false){
return true;
}else if(file_exists($file) && $overWrite == true){
delfile($file);
}
$fileDir = dirname($file);
if(makedir($fileDir)){
@clearstatcache();
return touch($file);
}else{
@clearstatcache();
return false;
}
}
/**
* 复制文件夹
* @param string $oldDir 原文件夹
* @param string $targetDir 复制后的文件夹名
* @param boolean $overWrite 是否覆盖原文件夹（true：覆盖原文件夹，false：不覆盖原文件夹）默认覆盖
* @return boolean 复制成功返回true，否则返回false
*/
function copydir($oldDir, $targetDir, $overWrite = true){
$oldDir = path_absolute($oldDir);
$targetDir = path_absolute($targetDir);
@clearstatcache();
$targetDir = substr($targetDir, -1) == '/' ? $targetDir : $targetDir.'/';
$oldDir = substr($oldDir, -1) == '/' ? $oldDir : $oldDir.'/';
if(!is_dir($oldDir)){
return false;
}
if(!file_exists($targetDir)){
makedir($targetDir);
}
$resource = opendir($oldDir);
while(($file = readdir($resource))!== false){
if($file == '.' || $file == '..'){
continue;
}
if(!is_dir($oldDir.$file)){
copyfile($oldDir.$file, $targetDir.$file, $overWrite);
}else{
copydir($oldDir.$file, $targetDir.$file, $overWrite);
}
}
@clearstatcache();
if(is_dir($targetDir)){
return true;
}else{
return false;
}
}
/**
* 复制文件
* @param string $oldFile 原文件
* @param string $targetFile 复制后的文件名
* @param boolean $overWrite 是否覆盖原文件（true：覆盖原文件，false：不覆盖原文件）默认覆盖
* @return boolean 复制成功返回true，否则返回false
*/
function copyfile($oldFile, $targetFile, $overWrite = true){
$oldFile = path_absolute($oldFile);
$targetFile = path_absolute($targetFile);
@clearstatcache();
if(!file_exists($oldFile)){
return false;
}
@clearstatcache();
if(file_exists($targetFile) && $overWrite == false){
return false;
}else if(file_exists($targetFile) && $overWrite == true){
//delfile($targetFile);
}
$fileDir = dirname($targetFile);
makedir($fileDir);
if(copy($oldFile, $targetFile)){
return true;
}else{
return false;
}
@clearstatcache();
}
/**
* 移动文件夹
* @param string $oldDir 原文件夹
* @param string $targetDir 移动后的文件夹名
* @param boolean $overWrite 是否覆盖已有文件夹（true：覆盖已有文件夹，false：不覆盖已有文件夹）默认覆盖
* @return boolean 移动成功返回true，否则返回false
*/
function movedir($oldDir, $targetDir, $overWrite = true){
$oldDir = path_absolute($oldDir);
$targetDir = path_absolute($targetDir);
@clearstatcache();
$targetDir = substr($targetDir, -1) == '/' ? $targetDir : $targetDir . '/';
$oldDir = substr($oldDir, -1) == '/' ? $oldDir : $oldDir . '/';
if(!is_dir($oldDir)){
return false;
}
if(!file_exists($targetDir)){
makedir($targetDir);
}
$resource = opendir($oldDir);
if(!$resource){
return false;
}
while(($file = readdir($resource))!== false){
if($file == '.' || $file == '..'){
continue;
}
if(!is_dir($oldDir.$file)){
movefile($oldDir.$file, $targetDir.$file, $overWrite);
}else{
movedir($oldDir.$file, $targetDir.$file, $overWrite);
}
}
closedir($resource);
@clearstatcache();
return rmdir($oldDir);
}
/**
* 移动文件
* @param string $oldFile 原文件
* @param string $targetFile 移动后的文件名
* @param boolean $overWrite 是否覆盖已有文件（true：覆盖已有文件，false：不覆盖已有文件）默认覆盖
* @return boolean 移动成功返回true，否则返回false
*/
function movefile($oldFile, $targetFile, $overWrite = true){
$oldFile = path_absolute($oldFile);
$targetFile = path_absolute($targetFile);
@clearstatcache();
if(!file_exists($oldFile)){
return false;
}
@clearstatcache();
if(file_exists($targetFile) && $overWrite == false){
//delfile($oldFile);
return false;
}else if(file_exists($targetFile) && $overWrite == true){
delfile($targetFile);
}
$fileDir = dirname($targetFile);
makedir($fileDir);
rename($oldFile, $targetFile);
@clearstatcache();
return true;
}
/**
* 删除文件夹
* @param string $fileDir 要删除的文件夹
* @param int $type 0：删除本文件夹及文件夹下文件，1：只删除本文件夹下的文件。默认都删除
* @return boolean 删除成功返回true，否则返回false
*/
function deldir($fileDir,$type = 0){
$fileDir = path_absolute($fileDir);
@clearstatcache();
$fileDir = substr($fileDir, -1) == '/' ? $fileDir : $fileDir . '/';
if(!is_dir($fileDir)){
return false;
}
$resource = opendir($fileDir);
@clearstatcache();
while(($file = readdir($resource))!== false){
if($file == '.' || $file == '..'){
continue;
}
if(!is_dir($fileDir.$file)){
delfile($fileDir.$file);
}else{
deldir($fileDir.$file);
}
}
closedir($resource);
@clearstatcache();
if($type==0)rmdir($fileDir);
return true;
}
/**
* 删除文件
* @param string $fileDir 要删除的文件
* @return boolean 删除成功返回true，否则返回false
*/
function delfile($fileUrl){
$fileUrl = path_absolute($fileUrl);
@clearstatcache();
if(file_exists($fileUrl)){
unlink($fileUrl);
return true;
}else{
return false;
}
@clearstatcache();
}
/**
* 相对路径转绝对路径
* @param string $path 要转换的路径
* @return string 返回转换好的路径
*/
function path_absolute($path){
$path = PATH_WEB.str_replace(array('../', './', PATH_WEB), '', $path);
if(is_dir($path)){
$last = substr($path, -1, 1);
if($last != '/' && $last != '\\'){
$path = $path.'/';
}
}
return $path;
}
/**
* 绝对路径转相对路径
* @param string $path 要转换的路径
* @param string $relative 相对路径前缀
* @return string 返回转换好的路径
*/
function path_relative($path, $relative = '../'){
return $relative.str_replace(array('../', './', PATH_WEB), '', $path);
}
/**
* 目录路径最后不是已/，结尾的，则给路径添加上/
* @param string $path 要转换的路径
* @return string 返回转换好的路径
*/
function path_standard($path){
if(substr($path,-1,1) != '/'){
$path = $path.'/';
}
return $path;
}
/**
* 获取文件的大小
* @param string $filename 要获取的文件名
* @return int 返回文件的大小
*/
function getfilesize($filename){
$filename = path_absolute($filename);
@clearstatcache();
if(file_exists($filename)){
$filesize = filesize($filename).'B';
if($filesize > 1000000){
$filesize = $filesize/1000000;
$filesize = sprintf("%.2f", $filesize);
$filesize .= 'MB';
}else{
if($filesize > 1000){
$filesize = $filesize/1000;
$filesize = sprintf("%.2f", $filesize);
$filesize .= 'KB';
}else{
$filesize .= 'B';
}
}
}else{
return false;
}
return $filesize;
}
/**
* 获取文件的后缀名
* @param string $filename 要获取的文件名
* @return string 返回文件的后缀名
*/
function getfileable($filename){
$filename = path_absolute($filename);
$lastsite = strrpos($filename,'.');
$fileable = substr($filename,$lastsite+1);
return $fileable;
}
/**
* zip压缩文件解压
* @param string $file 要解压的zip压缩文件
* @param string $destination 解压后的文件名（默认为解压前的文件名去掉zip后缀）
* @return string $flag 解压成功返回true，否则返回false
*/
function unzipfile($file, $destination = ''){
$file = path_absolute($file);
if($destination == ''){
$destination = str_replace('.'.getfileable($file),'',$file);
}
$destination = path_absolute($destination);
$archive = new PclZip($file);
if ($archive->extract(PCLZIP_OPT_PATH, $destination) == 0) {
return false;
}else{
return true;
}
}
/**
* 生成zip压缩文件
* @param string $dir 要压缩的文件
* @param string $destination 压缩后的文件名（必须指定zip后缀）
* @param boolean $overwrite 是否覆盖已有的文件（true：覆盖已有文件，false：不覆盖已有文件）默认覆盖
* @return 压缩失败返回false
*/
function zipfile($dir, $destination='', $overwrite = true){
makedir($dir);
$dir = path_absolute($dir);
if($destination == ''){
$destination = str_replace('.'.getfileable($dir),'',$dir).'.zip';
}
$destination = path_absolute($destination);
if(is_strinclude($destination,'.zip') === false){
return false;
}
@clearstatcache();
if(file_exists($destination) && $overwrite == false){
return false;
}else{
if(file_exists($destination)){
unlink($destination);
}
fclose(fopen($destination,'w'));
$z = new PclZip($destination);
$v_list = $z->create($dir);
if ($v_list == 0){
return false;
}else{
return true;
}
}
}
/**
* 验证文件夹是否有写权限
* @param string $dir 要检测的文件夹
* @return boolean $flag 有可写权限返回true，否则返回false
*/
function getdirpower($dir){
$dir = path_absolute($dir);
@clearstatcache();
$dir = substr($dir, -1) == '/' ? $dir : $dir.'/';
if(is_dir($dir)){
$file_hd = @fopen($dir.'/test.txt','w');
if($file_hd){
$flag = true;
}else{
$flag = false;
}
@fclose($file_hd);
@unlink($dir.'/test.txt');
}else{
$flag = false;
}
return $flag;
}
/**
* 验证文件是否有写权限
* @param string $file 要检测的文件
* @return boolean $flag 有可写权限返回true，否则返回false
*/
function getfilepower($file){
$file = path_absolute($file);
@clearstatcache();
if(file_exists($file) && !is_dir($file)){
$power = file_get_contents($file);
if($power){
if(file_put_contents($file,$power)){
return true;
}else{
return false;
}
}else{
if(file_put_contents($file,'test')){
unlink($file);
touch($file);
return true;
}else{
return false;
}
}
}else{
return false;
}
}
/**
* 修改文件夹权限
* @param string $dir 要修改的文件夹
* @param int $power 修改后的文件权限 777/755 读写，544 只读
* @return boolean $flag 修改成功返回true，否则返回false
*/
function modifydirpower($dir,$power){
$dir = path_absolute($dir);
@clearstatcache();
$dir = substr($dir, -1) == '/' ? $dir : $dir.'/';
if(is_dir($dir)){
$success = @chmod($dir,$power);
if($success === false){
$flagd = false;
}
$resource = opendir($dir);
@clearstatcache();
while(($file = readdir($resource)) !== false){
if($file == '.' || $file == '..') {
continue;
}
if(!is_dir($dir.$file)){
modifyfilepower($dir.$file,$power);
}else{
modifydirpower($dir.$file,$power);
}
}
closedir($resource);
}
if($flagd === false){
return false;
}else{
return true;
}
}
/**
* 修改文件权限
* @param string $file 要修改的文件
* @param int $power 修改后的文件权限 0777/0755 读写，0544 只读
* @return boolean $flag 修改成功返回true，否则返回false
*/
function modifyfilepower($file,$power){
$file = path_absolute($file);
@clearstatcache();
if(file_exists($file) && !is_dir($file)){
$sucess = chmod($file,$power);
if($sucess){
$flag = true;
}else{
$flag = false;
}
}else{
$flag = false;
}
return $flag;
}
/*遍历文件*/
/**
* 遍历文件夹下所有文件
* @param string $jkdir 遍历文件夹,可以是绝对路径，也可以是相对网站根目录的相对路径
* @param string $suffix 遍历文件的后缀，不填写为全部文件。支持正则。
* @param string $jump 跳过不需要遍历的文件夹。要填写网站根目录路径，不要含有../,实质是"/^({$jump})/"中正则参数。
* @return string 返回提取的文件数组。文件路径都是绝对路径。
*/
function traversal($jkdir, $suffix='[A-Za-z]*', $jump=null, &$filenamearray = array()) {
if($jkdir == '.' || $jkdir == './') $jkdir = '';
$jkdir = path_absolute($jkdir);
$hand = opendir($jkdir);
while ($file = readdir($hand)) {
$filename=$jkdir.$file;
if (@is_dir($filename) && $file != '.' && $file!= '..' && $file != './..') {
if ($jump != null) {
if (preg_match_all("/^({$jump})/", str_replace(PATH_WEB, '', $filename), $out)) {
continue;
}
}
traversal($filename, $suffix, $jump, $filenamearray);
} else {
if ($file != '.' && $file!= '..' && $file != './..' && preg_match_all ("/\.({$suffix})/i", $filename, $out)) {
if (stristr(PHP_OS,"WIN")) {
$filename = iconv("gbk", "utf-8", $filename);
}
$filenamearray[] = str_replace(PATH_WEB, '', $filename);
}
}
}
return $filenamearray;
}
# This program is an open source system, commercial use, please consciously to purchase commercial license.
# Copyright (C) MetInfo Co., Ltd. (http://www.metinfo.cn). All rights reserved.
?>